|
500
|
How can I change the foreground color of the HTML text or caption of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,3) = `<bgcolor=FF0000> to do </bgcolor>`"
' var_Items.ItemBar(h,"K1",8) = 16777215
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,8) = 16777215"
|
|
499
|
How can I assign a tooltip to a bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",6) = "This is a bit of text that's displayed when the cursor hovers the bar"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,6) = `This is a bit of text that's displayed when the cursor hovers the bar`"
|
|
498
|
How can I vertically align the HTML text or caption of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
' var_Items.ItemHeight(h) = 32
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemHeight(h) = 32"
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,3) = `<bgcolor=FF0000> to do </bgcolor>`"
' var_Items.ItemBar(h,"K1",5) = 0
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,5) = 0"
|
|
497
|
How can I align the HTML text or caption of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,3) = `<bgcolor=FF0000> to do </bgcolor>`"
' var_Items.ItemBar(h,"K1",4) = 0
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,4) = 0"
|
|
496
|
How can I assign a text or some HTML caption to a bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",3) = " <bgcolor=FF0000>to do</bgcolor> "
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,3) = ` <bgcolor=FF0000>to do</bgcolor> `"
|
|
495
|
How can I change the ending date of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",2) = {01/06/2001}
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,2) = #1/6/2001#"
|
|
494
|
How can I change the starting date of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",1) = {01/01/2001}
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,1) = #1/1/2001#"
|
|
493
|
How can I change the style or the name of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",0) = "Progress"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,0) = `Progress`"
|
|
492
|
How can I access properties and methods of the bar in the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
' var_Items.ItemBar(h,"K1",0) = "Progress"
oGantt.TemplateDef = "dim var_Items,h"
oGantt.TemplateDef = var_Items
oGantt.TemplateDef = h
oGantt.Template = "var_Items.ItemBar(h,`K1`,0) = `Progress`"
|
|
491
|
How can I remove all bars in the item
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.ClearBars(h)
|
|
490
|
How can I remove a bar from the chart
Dim h as N
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.RemoveBar(h,"K1")
|
|
489
|
How can I add a bar and some text inside, in the chart area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/06/2001},," to do ")
|
|
488
|
How can I add a bar and some text inside, in the chart area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/06/2001},,"<bgcolor=FF0000> to do </bgcolor>")
|
|
487
|
How can I add an anchor or a hyperline in the chart area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"",{01/02/2001},{01/14/2001},,"just a <a1>link</a>")
|
|
486
|
How can I add some text or captions in the chart area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"",{01/02/2001},{01/14/2001},,"just a <b>caption</b>")
|
|
485
|
How can I add a bar in the chart area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001})
|
|
484
|
Is there any option to put a picture or an icon to the thumb part of the scroll bar
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt.Template = "ScrollPartCaption(2,256) = `<img>1</img>`" // oGantt.ScrollPartCaption(2,256) = "<img>1</img>"
oGantt.Template = "ScrollThumbSize(2) = 24" // oGantt.ScrollThumbSize(2) = 24
|
|
483
|
How can I scroll fast the chart, or page by page
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt.ScrollHeight = 20
oGantt.ScrollButtonWidth = 20
oGantt.AllowChartScrollPage = .t.
oGantt.Template = "ScrollPartCaption(2,2048) = `<img>1</img>`" // oGantt.ScrollPartCaption(2,2048) = "<img>1</img>"
oGantt.Template = "ScrollPartCaption(2,32) = `<img>2</img>`" // oGantt.ScrollPartCaption(2,32) = "<img>2</img>"
|
|
482
|
How can I scroll fast the chart, or page by page
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.ScrollButtonWidth = 16
oGantt.AllowChartScrollPage = .t.
oGantt.Template = "ScrollPartCaption(2,2048) = `<<`" // oGantt.ScrollPartCaption(2,2048) = "<<"
oGantt.Template = "ScrollPartCaption(2,32) = `>>`" // oGantt.ScrollPartCaption(2,32) = ">>"
|
|
481
|
How can I scroll fast the chart, or page by page
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.AllowChartScrollPage = .t.
|
|
480
|
How can I display years, from 3 to 3
Dim oGantt as P
Dim var_Level as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitWidth = 64
var_Level = oGantt.Chart.Level(0)
var_Level.Label = "<%yyyy%>"
var_Level.Unit = 0
var_Level.Count = 3
|
|
479
|
How can I display years
Dim oGantt as P
Dim var_Level as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitWidth = 64
var_Level = oGantt.Chart.Level(0)
var_Level.Label = "<%yy%>"
var_Level.Unit = 0
|
|
478
|
How can I display years
Dim oGantt as P
Dim var_Level as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitWidth = 48
' oGantt.Chart.Level(0).Label = 0
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 0"
|
|
477
|
How can I display months, from 3 to 3
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Chart.LevelCount = 2
oGantt.Chart.UnitWidth = 64
' oGantt.Chart.Level(0).Label = 1
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%mmmm%>"
var_Level1.Unit = 16
var_Level1.Count = 3
|
|
476
|
How can I display months
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitWidth = 64
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 1
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%mmmm%>/<%yy%>"
var_Level1.Unit = 16
|
|
475
|
How can I display months
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
oGantt.Chart.UnitWidth = 64
' oGantt.Chart.Level(0).Label = 1
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1"
' oGantt.Chart.Level(1).Label = 16
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 16"
|
|
474
|
How can I display weeks
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
oGantt.Chart.UnitWidth = 64
' oGantt.Chart.Level(0).Label = 17
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 17"
' oGantt.Chart.Level(1).Label = 256
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 256"
|
|
473
|
How can I display weeks
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 17
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 17"
' oGantt.Chart.Level(1).Label = "<%ww%>"
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = `<%ww%>`"
|
|
472
|
How can I display days, from 2 to 2
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 256
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 256"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%dd%>"
var_Level1.Count = 2
|
|
471
|
How can I display days
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 256
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 256"
' oGantt.Chart.Level(1).Label = "<%dd%>"
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = `<%dd%>`"
|
|
470
|
How can I display days
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 256
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 256"
' oGantt.Chart.Level(1).Label = 4096
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 4096"
|
|
469
|
How can I display hours, from 6 to 6
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = "00:00"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 4096
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 4096"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Count = 6
|
|
468
|
How can I display hours
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 4096
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 4096"
' oGantt.Chart.Level(1).Label = "<%hh%>"
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = `<%hh%>`"
|
|
467
|
How can I display hours
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 4096
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 4096"
' oGantt.Chart.Level(1).Label = 65536
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 65536"
|
|
466
|
How can I display minutes, from 15 to 15
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = "00:00"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 65536
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 65536"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%nn%>"
var_Level1.Count = 15
|
|
465
|
How can I display minutes
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 65536
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 65536"
' oGantt.Chart.Level(1).Label = "<%nn%>"
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = `<%nn%>`"
|
|
464
|
How can I display minutes
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
oGantt.Chart.UnitWidth = 64
' oGantt.Chart.Level(0).Label = 65536
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 65536"
' oGantt.Chart.Level(1).Label = 1048576
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 1048576"
|
|
463
|
How can I display seconds, from 15 to 15
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = "00:00"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 1048576
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1048576"
var_Level1 = oGantt.Chart.Level(1)
var_Level1.Label = "<%ss%>"
var_Level1.Count = 15
|
|
462
|
How can I display seconds
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 1048576
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1048576"
' oGantt.Chart.Level(1).Label = "<%ss%>"
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = `<%ss%>`"
|
|
461
|
How can I display seconds
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).Label = 1048576
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.Label = 1048576"
' oGantt.Chart.Level(1).Label = 16777216
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.Label = 16777216"
|
|
460
|
How can I align the text being shown in the chart's header
Dim oGantt as P
Dim var_Level as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitWidth = 64
var_Level = oGantt.Chart.Level(0)
var_Level.Label = "<b><%mmmm%></b> <r><%m%>"
var_Level.Unit = 16
var_Level.Alignment = 0
|
|
459
|
How can I hide the tooltip being displayed in the chart's header
Dim oGantt as P
Dim var_Level as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.Level(0).ToolTip = ""
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.ToolTip = ``"
|
|
458
|
How can I change the tooltip being displayed in the chart's header
Dim oGantt as P
Dim var_Level as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level"
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.ToolTip = `This is a bit of text that's shown when the cursor hovers the level`"
|
|
457
|
How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.Chart.LevelCount = 2
oGantt.Chart.BackColorLevelHeader = 16777216
|
|
456
|
How can I change the level's foreground color in the chart
Dim oGantt as P
Dim var_Level as local
Dim var_Level1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).ForeColor = 255
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.ForeColor = 255"
' oGantt.Chart.Level(1).ForeColor = 16711680
var_Level1 = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level1"
oGantt.TemplateDef = var_Level1
oGantt.Template = "var_Level1.ForeColor = 16711680"
|
|
455
|
How can I change the level's background color in the chart
Dim oGantt as P
Dim var_Level as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(0).BackColor = 255
var_Level = oGantt.Chart.Level(0)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.BackColor = 255"
|
|
454
|
How can I save data on XML format
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
|
|
453
|
How can I load data on XML format
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
|
|
452
|
How can I add icons or pictures to the scale or zoom area
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oGantt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
' var_Chart.Label(0) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(0) = ``"
' var_Chart.Label(1) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1) = ``"
' var_Chart.Label(2) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(2) = ``"
' var_Chart.Label(17) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(17) = ``"
' var_Chart.Label(65536) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(16777216) = ``"
var_Chart.OverviewZoomUnit = 52
oGantt.Columns.Add("")
var_Items = oGantt.Items
' var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0) = .f.
oGantt.TemplateDef = "dim var_Items"
oGantt.TemplateDef = var_Items
oGantt.Template = "var_Items.CellSingleLine(AddItem(`Right click the Overview area and select a new scale`),0) = False"
|
|
451
|
How can I add icons or pictures to the scale or zoom area
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oGantt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
' var_Chart.Label(0) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(0) = ``"
' var_Chart.Label(1) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1) = ``"
' var_Chart.Label(2) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(2) = ``"
' var_Chart.Label(17) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(17) = ``"
' var_Chart.Label(65536) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(16777216) = ``"
var_Chart.OverviewZoomUnit = 52
|
|
450
|
How can I change the width of the unit in the scale or zoom
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec"
' var_Chart.Label(0) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(0) = ``"
' var_Chart.Label(1) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1) = ``"
' var_Chart.Label(2) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(2) = ``"
' var_Chart.Label(17) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(17) = ``"
' var_Chart.Label(65536) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(16777216) = ``"
var_Chart.OverviewZoomUnit = 24
|
|
449
|
How can I a scale or zoom of the chart, when right clicking the chart's header
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
' var_Chart.Label(0) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(0) = ``"
' var_Chart.Label(1) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1) = ``"
' var_Chart.Label(2) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(2) = ``"
' var_Chart.Label(17) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(17) = ``"
' var_Chart.Label(65536) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(16777216) = ``"
var_Chart.OverviewZoomUnit = 64
oGantt.Columns.Add("")
var_Items = oGantt.Items
' var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0) = .f.
oGantt.TemplateDef = "dim var_Items"
oGantt.TemplateDef = var_Items
oGantt.Template = "var_Items.CellSingleLine(AddItem(`Right click the Overview area and select a new scale`),0) = False"
|
|
448
|
How can I a customize the scale or zoom of the chart
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
' var_Chart.Label(0) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(0) = ``"
' var_Chart.Label(1) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1) = ``"
' var_Chart.Label(2) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(2) = ``"
' var_Chart.Label(17) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(17) = ``"
' var_Chart.Label(65536) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(65536) = ``"
' var_Chart.Label(1048576) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(1048576) = ``"
' var_Chart.Label(16777216) = ""
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.Label(16777216) = ``"
var_Chart.OverviewZoomUnit = 64
|
|
447
|
How can I a scale or zoom the chart at runtime
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oGantt.Chart
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
|
|
446
|
How can I a scale or zoom the chart at runtime
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oGantt.Chart
var_Chart.OverviewVisible = .t.
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomUnit = 24
|
|
445
|
How can I a programmatically select a date
Dim oGantt as P
Dim var_Chart as local
Dim var_Chart1 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.MarkSelectDateColor = 255
oGantt.Chart.FirstVisibleDate = {01/01/2001}
' oGantt.Chart.SelectDate({01/02/2001}) = .t.
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.SelectDate(#1/2/2001#) = True"
' oGantt.Chart.SelectDate({01/05/2001}) = .t.
var_Chart1 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart1"
oGantt.TemplateDef = var_Chart1
oGantt.Template = "var_Chart1.SelectDate(#1/5/2001#) = True"
oGantt.Chart.SelectLevel = 0
|
|
444
|
How can I change the color to select a date, when clicking the chart's header
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.BackColor = 16777215
oGantt.Chart.MarkSelectDateColor = 255
|
|
443
|
How can I enable or disable selecting a date, when clicking the chart's header
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.BackColor = 16777215
oGantt.Chart.MarkSelectDateColor = 16777215
|
|
442
|
How can I specify the color or the stype for non working hours
Dim oGantt as P
Dim var_Chart as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitScale = 65536
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.NonworkingHours = 127
oGantt.Chart.NonworkingHoursPattern = 12
oGantt.Chart.NonworkingHoursColor = 255
|
|
441
|
How can I specify the pattern or the stype for non working hours
Dim oGantt as P
Dim var_Chart as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitScale = 65536
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.NonworkingHours = 127
oGantt.Chart.NonworkingHoursPattern = 7
|
|
440
|
How can I specify the non working hours
Dim oGantt as P
Dim var_Chart as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.UnitScale = 65536
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.NonworkingHours = 127
|
|
439
|
How can I get the index of the level from the point or cursor
Dim oGantt as P
Dim var_LevelFromPoint as
oGantt = topparent:CONTROL_ACTIVEX1.activex
var_LevelFromPoint = oGantt.Chart.LevelFromPoint(0,0)
|
|
438
|
How can I get the link from the point or cursor
Dim oGantt as P
Dim var_LinkFromPoint as
oGantt = topparent:CONTROL_ACTIVEX1.activex
var_LinkFromPoint = oGantt.Chart.LinkFromPoint(0,0)
|
|
437
|
How can I check or verify if a date is a non working day
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add(oGantt.Chart.IsNonworkingDate({01/01/2001}))
|
|
436
|
How can I check or verify if a date fits the chart's visible area
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add(oGantt.Chart.IsDateVisible({01/01/2001}))
|
|
435
|
How can I add a remove all non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 0
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Chart.AddNonworkingDate({01/01/2001})
oGantt.Chart.ClearNonworkingDates()
|
|
434
|
How can I add a remove a non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 0
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Chart.AddNonworkingDate({01/01/2001})
oGantt.Chart.RemoveNonworkingDate({01/01/2001})
|
|
433
|
How can I add a custom non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 0
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Chart.AddNonworkingDate({01/01/2001})
oGantt.Chart.AddNonworkingDate({01/05/2001})
|
|
432
|
How can hide the non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.ShowNonworkingDates = .f.
|
|
431
|
How can hide the non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 0
|
|
430
|
How can I change the width of the links between bars
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LinksStyle = 0
oGantt.Chart.LinksWidth = 2
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
429
|
How can I change the style for the links between bars
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LinksStyle = 4
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
428
|
How can I change the color for the links between bars
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.LinksColor = 255
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
427
|
How can I hide the links between bars
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
oGantt.Chart.ShowLinks = .f.
|
|
426
|
How can I display some grid line in the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewLevelLines = 0
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/06/2001},{01/14/2001})
|
|
425
|
How do I change the tooltip when the cursor hovers the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewToolTip = "Tooltip on the overview"
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/06/2001},{01/14/2001})
|
|
424
|
How do I remove the tooltip when the cursor hovers the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewToolTip = ""
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
|
|
423
|
How do I change the selection color in the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewSelBackColor = 255
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
|
|
422
|
How do I change the background color for the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewBackColor = 255
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
|
|
421
|
How do I specify the height for the overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.OverviewHeight = 16
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
|
|
420
|
How do I show or hide the control's overview area
Dim oGantt as P
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.OverviewVisible = .t.
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
|
|
419
|
How do I get the bar from the point or cursor
Dim oGantt as P
Dim var_BarFromPoint as
oGantt = topparent:CONTROL_ACTIVEX1.activex
var_BarFromPoint = oGantt.Chart.BarFromPoint(0,0)
|
|
418
|
How do I specify the color of pattern for non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 66
oGantt.Chart.NonworkingDaysPattern = 8
oGantt.Chart.NonworkingDaysColor = 255
|
|
417
|
How do I specify the type of pattern for non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 66
oGantt.Chart.NonworkingDaysPattern = 11
|
|
416
|
How do I specify the non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 66
|
|
415
|
How do I specify the non working days
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.NonworkingDays = 66
|
|
414
|
How do I add a predefined bar
Dim oGantt as P
Dim var_Bar as local
Dim var_Items as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.Bars.Add("CustomBar").Color = 255
var_Bar = oGantt.Chart.Bars.Add("CustomBar")
oGantt.TemplateDef = "dim var_Bar"
oGantt.TemplateDef = var_Bar
oGantt.Template = "var_Bar.Color = 255"
oGantt.Chart.FirstVisibleDate = {01/01/2001}
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"CustomBar",{01/02/2001},{01/04/2001})
|
|
413
|
How do I change the unit being displayed in the chart
Dim oGantt as P
Dim var_Chart as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.UnitScale = 256
oGantt.Chart.UnitWidth = 64
|
|
412
|
How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used
Dim oGantt as P
Dim var_Chart as local
Dim var_Chart1 as local
Dim var_Chart2 as local
Dim var_Chart3 as local
Dim var_Chart4 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Label(1) = ""
var_Chart1 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart1"
oGantt.TemplateDef = var_Chart1
oGantt.Template = "var_Chart1.Label(1) = ``"
' oGantt.Chart.Label(2) = ""
var_Chart2 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart2"
oGantt.TemplateDef = var_Chart2
oGantt.Template = "var_Chart2.Label(2) = ``"
' oGantt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart3"
oGantt.TemplateDef = var_Chart3
oGantt.Template = "var_Chart3.Label(16) = `<%m3%>`"
' oGantt.Chart.LabelToolTip(16) = "Tooltip: <%mmmm%>"
var_Chart4 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart4"
oGantt.TemplateDef = var_Chart4
oGantt.Template = "var_Chart4.LabelToolTip(16) = `Tooltip: <%mmmm%>`"
oGantt.Chart.Zoom({01/01/2007},{01/01/2008})
oGantt.Chart.FirstVisibleDate = {01/01/2007}
|
|
411
|
How do I specify the prodefined labels being displayed on the chart, when Zoom method is used
Dim oGantt as P
Dim var_Chart as local
Dim var_Chart1 as local
Dim var_Chart2 as local
Dim var_Chart3 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Label(1) = ""
var_Chart1 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart1"
oGantt.TemplateDef = var_Chart1
oGantt.Template = "var_Chart1.Label(1) = ``"
' oGantt.Chart.Label(2) = ""
var_Chart2 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart2"
oGantt.TemplateDef = var_Chart2
oGantt.Template = "var_Chart2.Label(2) = ``"
' oGantt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart3"
oGantt.TemplateDef = var_Chart3
oGantt.Template = "var_Chart3.Label(16) = `<%m3%>`"
oGantt.Chart.Zoom({01/01/2007},{01/01/2008})
oGantt.Chart.FirstVisibleDate = {01/01/2007}
|
|
410
|
How do I scale or zoom the chart to a specified range of date
Dim oGantt as P
Dim var_Chart as local
Dim var_Chart1 as local
Dim var_Chart2 as local
Dim var_Chart3 as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Label(1) = ""
var_Chart1 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart1"
oGantt.TemplateDef = var_Chart1
oGantt.Template = "var_Chart1.Label(1) = ``"
' oGantt.Chart.Label(2) = ""
var_Chart2 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart2"
oGantt.TemplateDef = var_Chart2
oGantt.Template = "var_Chart2.Label(2) = ``"
' oGantt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart3"
oGantt.TemplateDef = var_Chart3
oGantt.Template = "var_Chart3.Label(16) = `<%m3%>`"
oGantt.Chart.Zoom({01/01/2007},{01/01/2008})
oGantt.Chart.FirstVisibleDate = {01/01/2007}
|
|
409
|
How do I scale or zoom the chart to a specified range of date
Dim oGantt as P
Dim var_Chart as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Chart.PaneWidth(.f.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 0"
oGantt.Chart.LevelCount = 2
oGantt.Chart.Zoom({01/01/2007},{07/01/2007})
oGantt.Chart.FirstVisibleDate = {01/01/2007}
|
|
408
|
How do I find the next date or previous date
Dim oGantt as P
Dim var_Chart as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oGantt.Chart
var_Chart.FirstVisibleDate = var_Chart.NextDate({01/01/2002},4096,1)
|
|
407
|
How can I change the color for the grid lines in the chart
Dim oGantt as P
Dim var_Level as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.DrawGridLines = -1
oGantt.Chart.LevelCount = 2
var_Level = oGantt.Chart.Level(1)
var_Level.DrawGridLines = .t.
var_Level.GridLineColor = 255
|
|
406
|
How can I draw, show or hide the grid lines in the chart
Dim oGantt as P
Dim var_Level as local
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.DrawGridLines = -1
oGantt.Chart.LevelCount = 2
' oGantt.Chart.Level(1).DrawGridLines = .t.
var_Level = oGantt.Chart.Level(1)
oGantt.TemplateDef = "dim var_Level"
oGantt.TemplateDef = var_Level
oGantt.Template = "var_Level.DrawGridLines = True"
|
|
405
|
How do I change the color to highlight the today in the chart
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.MarkTodayColor = 255
|
|
404
|
How do I hide or stop highlighting the today area in the chart
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.BackColor = 16777215
oGantt.Chart.MarkTodayColor = 16777215
|
|
403
|
Is there any function to get the date in the format that I use for levels, to layout my chart's header
Dim h as
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
h = oGantt.Chart.FormatDate({01/01/2002},"<%yyyy%> <%mmmm%> <%d%> <%dddd%>")
oGantt.Columns.Add(h)
|
|
402
|
How can I get the date from the point, cursor
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.Gantt.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Gantt.1::OLE_YPOS_PIXELS)
oGantt = topparent:CONTROL_ACTIVEX1.activex
? oGantt.Chart.DateFromPoint(-1,-1)
end function
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
|
|
401
|
How can I show or hide the small ticker that shows up when the cursor hovers the chart area
Dim oGantt as P
oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Chart.DrawDateTicker = .f.
|